﻿<!--#include file="const.asp"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>


<%
if sid="Null" then
	Response.Redirect "login.asp"
	Response.end
end if
IF  Request.QueryString("Action")="login" Then
	call login
else
	call index
end if
end Function



Function index
	dim rs,sql,Runtxt
	Runtxt=qingtian.RunStr
%>
	<card title="默认参数配置"><p align="left">
<a href='index.asp?sid=<%=sid%>'>管理首页</a>&gt;<a href='config.asp?sid=<%=sid%>'>网站配置</a>&gt;配置<br/>
==<b>默认参数配置</b>==<br/>

<%
		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 *  FROM qingtian_confff"
		rs.open sql,conn,1,1
		if not (rs.eof and rs.bof) then
%>

        注册默认书签：<br/>
        <input emptyok="true"   name="shu<%=Runtxt%>" value="<%=rs("shu")%>" type="text"/><br/>
	在线默认时长(分钟)：<br/>
        <input emptyok="true"   name="zti<%=Runtxt%>" value="<%=rs("zti")%>" maxlength="10" type="text"/><br/>
        默认游客昵称：<br/>
        <input  emptyok="true" name="hui<%=Runtxt%>" value="<%=rs("hui")%>" maxlength="50" type="text"/><br/>
	下载txt默认扣币：<br/>
        <input format='*N'   name="bit<%=Runtxt%>" value="<%=rs("bit")%>" maxlength="50" type="text"/><br/>
	下载附件默认扣币：<br/>
        <input format='*N'   name="bii<%=Runtxt%>" value="<%=rs("bii")%>" maxlength="50" type="text"/><br/>
	上传附件最小积分：<br/>
        <input format='*N'   name="zft<%=Runtxt%>" value="<%=rs("zft")%>" maxlength="50" type="text"/><br/>
	发连接贴最小积分：<br/>
        <input format='*N'   name="zftb<%=Runtxt%>" value="<%=rs("zftb")%>" maxlength="50" type="text"/><br/>
	字符过滤(用"|"将要过滤的字符分开)：<br/>
        <input name="nbrep<%=Runtxt%>" value="<%=rs("nbrep")%>" type="text"/><br/>
	 图片水印是否开启：<br/>
   	<select name="tui<%=Runtxt%>" value="<%=rs("tui")%>" >
	<option value="0">否</option>
	<option value="1">是</option>
	</select><br/>
	 注册参数配置：<br/>
   	<select name="regt<%=Runtxt%>" value="<%=rs("regt")%>" >
	<option value="0">开通注册</option>
	<option value="1">关闭注册</option>
	<option value="2">短信注册</option>
	</select><br/>
	<anchor>保存设置
    	<go href="config7.asp?Action=login&amp;sid=<%=sid%>" method='post'>
        <postfield name="shu" value="$(shu<%=Runtxt%>)"/>
        <postfield name="bit" value="$(bit<%=Runtxt%>:n)"/>
        <postfield name="zti" value="$(zti<%=Runtxt%>)"/>
        <postfield name="hui" value="$(hui<%=Runtxt%>)"/>
        <postfield name="bii" value="$(bii<%=Runtxt%>:n)"/>
        <postfield name="tui" value="$(tui<%=Runtxt%>)"/>
        <postfield name="zft" value="$(zft<%=Runtxt%>)"/>
        <postfield name="zftb" value="$(zftb<%=Runtxt%>:n)"/>
        <postfield name="nbrep" value="$(nbrep<%=Runtxt%>)"/>
        <postfield name="regt" value="$(regt<%=Runtxt%>)"/>
    	</go>
	</anchor><br/>
<%
		end if
		rs.Close
		Set rs = Nothing
%>
-------------<br/>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
End Function
Function login
%>
<card id="login" title="默认参数配置" ontimer="index.asp?sid=<%=sid%>"><timer value="20"/><p align="left">
<%
		dim shu,bit,zti,bii,tui,hui,rs,sql,errs,zft,zftb,nbrep,regt
		shu=TRim(Request.form("shu"))
		bit=TRim(Request.form("bit"))
		zti=TRim(Request.form("zti"))
		hui=TRim(Request.form("hui"))
		bii=TRim(Request.form("bii"))
		tui=TRim(Request.form("tui"))
		zft=TRim(Request.form("zft"))
		zftb=TRim(Request.form("zftb"))
		regt=TRim(Request.form("regt"))
		nbrep=TRim(Request.form("nbrep"))
				if shu="" then errs=errs & "默认书签名称不能为空<br/>"
				if bit="" then bit=0
				if zti="" or zti=0 then zti=60
				if hui="" then errs=errs & "默认游客名称不能为空<br/>"
				if bii="" then bii=0
				if tui="" then tui=0
				if zft="" then zft=0
				if zftb="" then zftb=0
				if regt="" then regt=0
				if instr(nbrep,"|")<=0 then nbrep="我操|妈的"
	if errs="" then

		set rs=Server.CreateObject("ADODB.Recordset")
		Sql = "select top 1 * FROM qingtian_confff"
		rs.open sql,conn,1,3
		if not (rs.eof and rs.bof) then
		rs("shu")=shu
		rs("bit")=bit
		rs("zti")=zti
		rs("hui")=hui
		rs("bii")=bii
		rs("tui")=tui
		rs("zft")=zft
		rs("zftb")=zftb
		rs("regt")=regt
		rs("nbrep")=nbrep
		rs.update()
%>
保存设置成功!<br/>
<%
                else
%>
保存设置失败!<br/>
<%   
		
		end if
		rs.Close
		Set rs = Nothing



	else
%>
		<%=errs%>
		<a href="config7.asp?sid=<%=sid%>">返回修改</a><br/>
<%
	end if
%>
<a href='index.asp?sid=<%=sid%>'>后台管理首页</a><br/>
<%
end Function 
%>
